home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Plus / Multimedia Plus with ClearVue Version 10-94 (Knowledge Media Inc.).ISO / dos / hypertxt / magic15b / fixtabs.bas < prev    next >
Encoding:
BASIC Source File  |  1989-11-02  |  367 b   |  12 lines
  1. 110 PRINT "RemoveTab"
  2. 120 INPUT "enter name of input file - ";F1$
  3. 130 INPUT "enter name of output file - ";F2$
  4. 140 OPEN F1$ FOR INPUT AS #1 LEN=512
  5. 150 OPEN F2$ FOR OUTPUT AS #2 LEN=512
  6. 160 IF EOF(1) THEN END
  7. 170 N=(ASC(INPUT$(1,#1)) AND 127)
  8. 180 IF N=9 THEN N = 32          ' Replace Tabs with Spaces
  9. 190 PRINT #2,CHR$(N);
  10. 200 PRINT CHR$(N);
  11. 210 GOTO 160
  12.